Check out my twitter script by CMXads
| PHP Gallery PHP Gallery is a free php image script. | Sharp Stuff Switchblades Icepicks and german knives | Evil gear Christmas is almost here | Goth and Gore Gifts Shop right now or else! |
here are some of the best and useful php scripts and snippets to help in your projects. Php displayed below. Use the search for specific script lookups. Click the category links to view scripts in Javascript and cgi. To add your own script click the link and add your useful script example.
Search and return search results from all pages on your site it
searches the title tags can modify
search engine cgi
cgi-search date added Jan 2013
#! /usr/local/bin/perl
##############################################
################################
# Random Link Vers
ion 1.0 #
# Copyright 1996 Matt Wrig
ht mattw@scriptarchive.com #
# Created 7/15/9
5 Last Modified 7/30/95 #
# Scri
pts Archive at: http://www.scriptarchive.com/
#
##################################################################
############
# COPYRIGHT NOTICE
#
# Copyright 1996 Matthew M. Wright All Rights
Reserved. #
#
#
# Random Link may be used
and modified free of charge by anyone so long as #
# this copyright
notice and the comments above remain intact. By using this #
# code
you agree to indemnify Matthew M. Wright from any liability that
#
# might arise from it's use.
#
#
#
# Selling the code for this program without pr
ior written consent is #
# expressly forbidden. In other wor
ds, please ask first before you try and #
# make money off of my pro
gram. #
#
#
# Obta
in permission before redistributing this software over the Internet or
#
# in any other medium. In all cases copyright and header must rem
ain intact.#
########################################################
######################
# Define Variables
$linkfile = "/home/scrip
tarchive/demos/links/database";
# Options
$uselog = 1;
# 1 = YES; 0 = NO
$logfile = "/home/scriptarchive/demos/links/rand
_log";
$date = `date +"%D"`; chop($date);
# Done
##############
################################################################
op
en (LINKS, "$linkfile");
srand(); # kick ran
d
$nlines=@file=<LINKS>; # inhale file & get # of lines
print "Location: $file[int rand $nlines]\n\n";
# print a random line
close (LINKS);
if ($uselog eq '1') {
open (LOG, ">>$logfile");
print LOG "$ENV{'REMOTE_HOST'} - [$date
]\n";
close (LOG);
}
exit;